home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 21 / CU Amiga Magazine's Super CD-ROM 21 (1998)(EMAP Images)(GB)[!][issue 1998-04].iso / CUCD / Programming / VisualBuilder / source / HookFuncs.c < prev    next >
Encoding:
C/C++ Source or Header  |  1997-11-10  |  4.3 KB  |  178 lines
  1. SAVEDS ULONG ASM ApplyChangesFunc(REG(a0) struct Hook *h,
  2.                                   REG(a2) Object *win,
  3.                                   REG(a1) ULONG *num)
  4. { Object *app, *actobj;
  5.         
  6.   get(win,MUIA_ApplicationObject,&app);
  7.   get(app,MUIA_UserData,&actobj);
  8.   
  9.   if(actobj != NULL)
  10.     ApplyChanges(actobj);
  11.   else
  12.     MUI_Request(app,win,0,"warning","*_Too bad","no active object.");
  13.  
  14.   return(0);
  15. }
  16.  
  17. SAVEDS ULONG ASM DisplayFunc(REG(a2) char **array,
  18.                              REG(a1) struct VBList *str)
  19. {
  20.   *array++ = str->Key;
  21.   *array = str->Value;
  22.   
  23.   return(0);
  24. }
  25.  
  26. SAVEDS ULONG ASM ConstructFunc(REG(a2) APTR pool,
  27.                                REG(a1) struct VBList *str)
  28. {
  29.   char *key, *value;
  30.   struct VBList *entry;
  31.   
  32.   if(key=AllocPooled(pool,strlen(str->Key)+1))
  33.     strcpy(key,str->Key);
  34.     
  35.   if(value=AllocPooled(pool,strlen(str->Value)+1))
  36.     strcpy(value,str->Value);
  37.     
  38.   if(entry=AllocPooled(pool,sizeof(struct VBList)))
  39.   { entry->Key = key;
  40.     entry->Value = value;
  41.   }
  42.  
  43.   return((ULONG)entry);
  44. }
  45.  
  46. SAVEDS ULONG ASM DestructFunc(REG(a2) APTR pool,
  47.                               REG(a1) struct VBList *entry)
  48. { 
  49.   FreePooled(pool,entry->Key,strlen(entry->Key)+1);
  50.   FreePooled(pool,entry->Value,strlen(entry->Value)+1);
  51.   FreePooled(pool,entry,sizeof(entry));
  52.   
  53.   return(0);
  54. }
  55.  
  56. SAVEDS ULONG ASM DeleteObjectFunc(REG(a0) struct Hook *h,
  57.                                   REG(a2) Object *win,
  58.                                   REG(a1) ULONG *num)
  59. { Object *app, *actobj;
  60.         
  61.   get(win,MUIA_ApplicationObject,&app);
  62.   get(app,MUIA_UserData,&actobj);
  63.   
  64.   if(actobj != NULL)
  65.     Group_Remove(actobj);
  66.   else
  67.     MUI_Request(app,win,0,"Could not delete object","*_Say what!","No active object.");
  68.  
  69.   return(0);
  70. }
  71.  
  72. SAVEDS ULONG ASM InsertWindowFunc(REG(a0) struct Hook *h,
  73.                                   REG(a2) Object *win,
  74.                                   REG(a1) ULONG *num)
  75. { 
  76.   Object *app;
  77.   int i;
  78.   
  79.   get(win,MUIA_ApplicationObject,&app);
  80.  
  81.   for(i=0;a->UserWin[i]!=NULL;i++);
  82.   
  83.   if(i<15)
  84.   { 
  85.     a->UserWin[i] = WindowObject,
  86.       MUIA_Window_Title, "NewWindow",
  87.       MUIA_Window_ID, MAKE_ID('W','I','N',i),
  88.       WindowContents, HGroup,
  89.         Child, DropGroupObject("Group1"),
  90.           Child, HSpace(0),
  91.         End,
  92.       End,
  93.     End;
  94.  
  95.     DoMethod(app,OM_ADDMEMBER,a->UserWin[i]);
  96.     set(a->UserWin[i],MUIA_Window_Open,TRUE);
  97.  
  98.     DoMethod(a->UserWin[i], MUIM_Notify, MUIA_Window_CloseRequest, TRUE,
  99.              a->UserWin[i], 3, MUIM_Set, MUIA_Window_Open, FALSE);
  100.   }
  101.   else
  102.   { MUI_Request(app,win,0,"Warning","*_This sucks!",
  103.                 "Insert window:\nThe maximum amount of windows is 15!");
  104.   }
  105.  
  106.   return(0);
  107. }
  108.  
  109. SAVEDS ULONG ASM AboutVBFunc(REG(a0) struct Hook *h,
  110.                              REG(a2) Object *win,
  111.                              REG(a1) ULONG *num)
  112. { 
  113.   Object *app;
  114.   
  115.   get(win,MUIA_ApplicationObject,&app);
  116.  
  117.   MUI_Request(app,win,0,"About Visual Builder","*_Okido",
  118.                 "Visual builder v1.0 alpha\nWritten by Jan Klok.");
  119.  
  120.   return(0);
  121. }
  122.  
  123. SAVEDS ULONG ASM ObjStrFunc(REG(a0) struct Hook *h,
  124.                             REG(a2) Object *list,
  125.                             REG(a1) Object *str)
  126. {
  127.   struct VBList *x;
  128.  
  129.   DoMethod(list,MUIM_List_GetEntry,MUIV_List_GetEntry_Active,&x);
  130.   set(str,MUIA_String_Contents,x->Value);
  131.  
  132.   return(TRUE);
  133. }
  134.  
  135. SAVEDS ULONG ASM StrObjFunc(REG(a0) struct Hook *h,
  136.                             REG(a2) Object *list,
  137.                             REG(a1) Object *str)
  138. {
  139.   struct VBList *x;
  140.   char *s;
  141.   int i;
  142.  
  143.   get(str,MUIA_String_Contents,&s);
  144.  
  145.   for (i=0;;i++)
  146.   {
  147.     DoMethod(list,MUIM_List_GetEntry,i,&x);
  148.     if (!x)
  149.     {
  150.       set(list,MUIA_List_Active,MUIV_List_Active_Off);
  151.       break;
  152.     }
  153.     else if (!stricmp(x->Value,s))
  154.     {
  155.       set(list,MUIA_List_Active,i);
  156.       break;
  157.     }
  158.   }
  159.   return(TRUE);
  160. }
  161.  
  162. SAVEDS ULONG ASM ShowHideToolBarFunc(REG(a0) struct Hook *h,
  163.                                      REG(a2) Object *toolbar,
  164.                                      REG(a1) ULONG *visible)
  165. { 
  166.   if (DoMethod(a->MainWinGroup,MUIM_Group_InitChange))
  167.   { 
  168.     if(XGet(a->ViewToolbar,MUIA_Menuitem_Checked)) 
  169.       DoMethod(a->MainWinGroup,OM_ADDMEMBER,toolbar);
  170.     else
  171.       DoMethod(a->MainWinGroup,OM_REMMEMBER,toolbar);
  172.       
  173.     DoMethod(a->MainWinGroup,MUIM_Group_ExitChange);
  174.   }
  175.   return(0);
  176. }
  177.  
  178.